Public Class Cuser
    Private _intUsrSeqID As Integer
    Private _intPersonID As Integer
    Private _intEmpID As Integer
    Private _strOptrID As String
    Private _strUsrID As String
    Private _strPwd As String
    Private _objPerson As New CPerson
    Private _chrStatus As Char
    Private _intRoleId As Integer

    Public Property UsrSeqNo() As Integer
        Get
            Return _intUsrSeqID
        End Get
        Set(ByVal value As Integer)
            _intUsrSeqID = value
        End Set
    End Property
    Public Property PersonID() As Integer
        Get
            Return _intPersonID
        End Get
        Set(ByVal value As Integer)
            _intPersonID = value
        End Set
    End Property
    Public Property EmployeeID() As Integer
        Get
            Return _intEmpID
        End Get
        Set(ByVal value As Integer)
            _intEmpID = value
        End Set
    End Property
    Public Property OperatorID() As String
        Get
            Return _strOptrID
        End Get
        Set(ByVal value As String)
            _strOptrID = value
        End Set
    End Property

    Public Property LoginID() As String
        Get
            Return _strUsrID
        End Get
        Set(ByVal value As String)
            _strUsrID = value
        End Set
    End Property

    Public Property Password() As String
        Get
            Return _strPwd
        End Get
        Set(ByVal value As String)
            _strPwd = value
        End Set
    End Property

    Public Property Person() As CPerson
        Get
            Return _objPerson
        End Get
        Set(ByVal value As CPerson)
            _objPerson = value
        End Set
    End Property
    Public Property Status() As Char
        Get
            Return _chrStatus
        End Get
        Set(ByVal value As Char)
            _chrStatus = value
        End Set
    End Property
    Public Property RoleId() As Integer
        Get
            Return _intRoleId
        End Get
        Set(ByVal value As Integer)
            _intRoleId = value
        End Set
    End Property

    Public Sub New()

    End Sub

End Class
